Imports CapaDeDatos

Public Class nCategoriaFiscal
    Private dCatFiscal As dCategoriaFiscal = New dCategoriaFiscal()
    Public Function Insertar(ByVal Detalle As String) As Boolean
        If (Detalle <> "") Then
            Return dCatFiscal.Insertar(Detalle)
        Else
            Return False
        End If
    End Function
    Public Function Modificar(ByVal Detalle As String) As Boolean
        If (Detalle <> "") Then
            Return dCatFiscal.Modificar(Detalle)
        Else
            Return False
        End If
    End Function
    Public Function Buscar(ByVal CodigoCatFiscal As String, _
                            ByVal Detalle As String) As DataSet
        Return dCatFiscal.BuscarFiltrado(CodigoCatFiscal, Detalle)
    End Function
    Public Function Eliminar(ByVal CodigoCatFiscal As String) As Boolean
        If (CodigoCatFiscal <> "") Then
            Return dCatFiscal.Eliminar(CodigoCatFiscal)
        Else
            Return False
        End If
    End Function
End Class
